Option Explicit
Sub I_Sample011()
    Application.Dialogs(xlDialogPrinterSetup).Show
    MsgBox Application.ActivePrinter
End Sub